home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 June
/
EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso
/
earcd
/
editor
/
gdphrc14.lha
/
ged-phrasecomp
/
Install
next >
Wrap
Text File
|
1996-04-18
|
2KB
|
117 lines
;
; $PROJECT: GoldED Phrase-Completion API-Client
;
; $VER: Install 1.1 (18.04.96)
;
; by
;
; Stefan Ruppert , Windthorststrasse 5 , 65439 Floersheim , GERMANY
;
; (C) Copyright 1996
; All Rights Reserved !
;
; $HISTORY:
;
; 18.04.96 : 001.001 : initial
;
;
; customization section
;
(set #program (cat "PhraseCompletion"))
(set #documentation (cat "PhraseCompletion.doc"))
(set #defdir (cat "GoldED:API"))
(set #defdirprompt (cat "Where do the GoldED API clients belong"))
(set #infomsg (cat "Now run GoldED and activate " #program "\n"
"via GoldED's API requester"))
;
; independend Installer script
;
(set #procedure
(cat
"Please select the appropriate procedure:"
)
)
(set #procedure-help
(cat
"You can select the Install procedure to install "
"all nessecary files for the " @app-name " to run.\n"
"Or select Remove to remove all previously installed "
"files of the " @app-name " from your system.\n\n"
)
)
(set mode
(askchoice
(prompt #procedure)
(help (cat #procedure-help @askchoice-help))
(choices "Install" "Remove")
)
)
(if mode
(set pmode "Remove")
(set pmode "Install")
)
; get api dir
(set apidir
(askdir
(prompt #defdirprompt)
(help @askdir-help)
(default #defdir)
)
)
; now do install or remove
(if mode
; Remove
(
; Show what we are doing
(working "Removing " @app-name)
; Remove the non-standard pieces
(delete (tackon apidir #program) (infos))
(delete (tackon apidir #documentation) (infos))
; Don't want to use the confusing "Installation Complete" message
; when what we really did was remove things...
(message "The \"" @app-name "\" components "
"that you specified have been successfully removed")
(exit (quiet))
)
; Install
(
(working "Installing " @app-name)
; Install the binary
(copyfiles
(prompt "Copying the API client")
(help @copyfiles-help)
(source #program)
(dest apidir)
(infos)
(confirm)
)
(copyfiles
(prompt "Copying the doc file")
(help @copyfiles-help)
(source #documentation)
(dest apidir)
(infos)
(confirm)
)
)
)
(set @default-dest apidir)
(message #infomsg)